﻿<!-- #include file="function.asp" -->
<%
Dim BackupDBPro_Version,BackupDBPro_Lastbak,BackupDBPro_On,BackupDBPro_Interval,BackupDBPro_Backup1,BackupDBPro_Backup2,BackupDBPro_Backup3
Dim BackupDBPro_Config
Function BackupDBPro_Initialize()
	Set BackupDBPro_Config=New TConfig
	BackupDBPro_Config.Load "BackupDBPro"
	If BackupDBPro_Config.Exists("BackupDBPro_Version")=False Then
		BackupDBPro_Config.Write "BackupDBPro_Version","1.0"
		BackupDBPro_Config.Write "BackupDBPro_Lastbak","2006-04-30"
		BackupDBPro_Config.Write "BackupDBPro_On","False"
		BackupDBPro_Config.Write "BackupDBPro_Interval","7"
		BackupDBPro_Config.Write "BackupDBPro_Backup1","无"
		BackupDBPro_Config.Write "BackupDBPro_Backup2","无"
		BackupDBPro_Config.Write "BackupDBPro_Backup3","无"
	End If
	BackupDBPro_Config.Save
	BackupDBPro_Lastbak = BackupDBPro_Config.Read("BackupDBPro_Lastbak")
	BackupDBPro_On = CBool(BackupDBPro_Config.Read("BackupDBPro_On"))
	BackupDBPro_Interval = CInt(BackupDBPro_Config.Read("BackupDBPro_Interval"))
	BackupDBPro_Backup1 = BackupDBPro_Config.Read("BackupDBPro_Backup1")
	BackupDBPro_Backup2 = BackupDBPro_Config.Read("BackupDBPro_Backup2")
	BackupDBPro_Backup3 = BackupDBPro_Config.Read("BackupDBPro_Backup3")
End Function

'注册插件
Call RegisterPlugin("BackupDBPro","ActivePlugin_BackupDBPro")

'挂口部分
Function ActivePlugin_BackupDBPro()
	Call Add_Action_Plugin("Action_Plugin_Admin_Begin","BackupDBPro_Snack")
End Function
%>